home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
shazam11.zip
/
DEMOC3.VIR
< prev
next >
Wrap
Text File
|
1991-11-04
|
516b
|
17 lines
{===================================================================
Check command-line option
NOTE: Call to this routine automatically placed in constructor Init;
see *.PAS file.
===================================================================}
procedure TDemoC3App.PreInit ;
begin
if ParamCount = 0 then
begin
writeln ( 'Syntax: C:>program filespec' ) ;
writeln ;
writeln ( 'You FORGOT the ''filespec'''#7#7 ) ;
HALT ( 1 ) ;
end ;
end ;